[vb]连续输入多个学生的成绩，计算平均分，当输入-1时，停止输入，并输出计算结果

数据溢出是因为pjf = zf / rs这句，rs＝0即除数为零，所以报错。应该将初始变量zf和rs定义在循环外面，正确代码如下：
Private Sub Form_Click()
Dim zf As Integer, rs As Integer, pjf As Double
zf = 0
rs = 0
Do While True
cj = Val(InputBox("cj:"))
If cj <> -1 Then
zf = zf + cj
rs = rs + 1
Else
Exit Do
End If
Loop
pjf = zf / rs
Print pjf
End Sub

Private Sub Form_Click()
Dim zf As Integer, rs As Integer, pjf As Double
zf = 0
rs = 0
Do While True
cj = Val(InputBox("cj:"))
If cj <> -1 Then
zf = zf + cj
rs = rs + 1
Else
Exit Do
End If
Loop
pjf = zf / rs
Print zf

Dim strInput As String
Dim dblAverage, dblTotal, dblCount As Double
strInput = InputBox("输入成绩")
Do While strInput <> "-1"
dblTotal += CDbl(strInput)
dblCount += 1